home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib12.dsk / INVESTOR LOADER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  40 lines
  1. 10  REM  **************************
  2. 11  REM  *    INVESTOR LOADER     *
  3. 12  REM  *   BY ALEXANDER LAIRD   *
  4. 13  REM  *   COPYRIGHT (C) 1983   *
  5. 14  REM  *   BY MICROSPARC, INC   *
  6. 15  REM  *   CONCORD, MA. 01742   *
  7. 16  REM  **************************
  8. 20  REM  SETS LOMEM:16385 TO PUT
  9. 30  REM  THE PROGRAM ABOVE PAGE 1
  10. 40  REM  GRAPHICS.
  11. 45  IF  PEEK(48896) = 76  THEN  HOME : VTAB 12: PRINT "PROGRAM RUNS UNDER DOS 3.3 ONLY!": END 
  12. 50  HGR : HGR2 : SCALE= 1: HCOLOR= 1
  13. 55  ROT= 0
  14. 60  PRINT  CHR$(4);"BLOAD THE.SHAPES"
  15. 70  POKE 232,0: POKE 233,24: REM  SHAPE TABLE POINTER $1800
  16. 80 X = 73
  17. 90  FOR Y = 86 TO 80  STEP  -1
  18. 100 X = X +1
  19. 110 M = 1: IF Y < = 80  THEN M = 3
  20. 120  POKE 230,32
  21. 130  CALL 62450: REM  CLR SCRN1
  22. 140  HCOLOR= M: DRAW 26 AT 95,Y: HCOLOR= 3: DRAW 27 AT 145,Y
  23. 150  HCOLOR= M: DRAW 26 AT 95,X: HCOLOR= 3: DRAW 27 AT 145,X
  24. 160  IF Y >80  THEN 200
  25. 170 Q = 1: FOR Z = 5 TO 145  STEP 12: DRAW 26 AT Q,Z: NEXT Z
  26. 180 Q = 240: FOR Z = 5 TO 145  STEP 12: DRAW 26 AT Q,Z: NEXT Z
  27. 190  GOTO 240
  28. 200  POKE  -16300,0: POKE  -16302,0: POKE 230,64: CALL 62450
  29. 210  HCOLOR= M: DRAW 26 AT 95,Y -1: HCOLOR= 3: DRAW 27 AT 145,Y -1
  30. 220  HCOLOR= M: DRAW 26 AT 95,X +1: HCOLOR= 3: DRAW 27 AT 145,X +1
  31. 230  POKE  -16299,0
  32. 240  NEXT Y
  33. 250  POKE 230,32
  34. 260  POKE  -16300,0
  35. 270  POKE  -16301,0
  36. 280  HOME : VTAB 22: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC **": VTAB 24: INPUT "PRESS RETURN TO LOAD THE INVESTOR";XX$
  37. 290  POKE 16384,0
  38. 300  POKE 103,01: POKE 104,64: REM  4001 HEX
  39. 310  POKE 232,0: POKE 233,24: REM  SHAPE TABLE PTRS
  40. 320  PRINT  CHR$(4);"RUN INVESTOR"